5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:PRINT"[147]"
20 GOSUB60000
30 POKE214,10:PRINT
40 PRINT"   [195][154]  [195]LEAR THE HIGH SCORES FILE
50 [153]"      ATNNY OTHER KEY CONTINUES LOADING
60 GETA$:IFA$=""THEN60
70 IFA$<>"C"THEN100
80 OPEN15,DV,15,"S0:TEN.HIGHS":PRINT#15,"C0:TEN.HIGHS=TEN.HIGHS.BAK":CLOSE15
100 PRINT"[144]LOAD"CHR$(34)"TENEMENT"CHR$(34)","DV
110 PRINT"RUN"
120 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:TEN BOOT":CLOSE15:SAVE"TEN BOOT",8:END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[212] [200] [197]    [212] [197] [206] [197] [205] [197] [206] [212]
60040 B9$(1)[178]"BY CHR$US (null)AKALIS"
60050 B9$(2)[178]"(LEN) 1991 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #90"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60099 [142]